home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / ShareMailGiftware / AmigaTalk / prelude / Point.p < prev    next >
Text File  |  2002-10-27  |  3KB  |  110 lines
  1. pTempVar <- <primitive 110 21 >
  2. <primitive 112 pTempVar 1  " y: " \
  3.   #( #[ 16r21 16r61 16rF5] \
  4.     #(  )) >
  5.  
  6. <primitive 112 pTempVar 2  " y " \
  7.   #( #[ 16r11 16rF3 16rF5] \
  8.     #(  )) >
  9.  
  10. <primitive 112 pTempVar 3  " x:y: " \
  11.   #( #[ 16r21 16r60 16r22 16r61 16rF5] \
  12.     #(  )) >
  13.  
  14. <primitive 112 pTempVar 4  " x: " \
  15.   #( #[ 16r21 16r60 16rF5] \
  16.     #(  )) >
  17.  
  18. <primitive 112 pTempVar 5  " x " \
  19.   #( #[ 16r10 16rF3 16rF5] \
  20.     #(  )) >
  21.  
  22. <primitive 112 pTempVar 6  " transpose " \
  23.   #( #[ 16r05 16r35 16rA0 16r11 16r0B 16r33 16r10 16r0B 16r34 16rF3 16rF5 \
  24.        ] \
  25.     #(  )) >
  26.  
  27. <primitive 112 pTempVar 7  " printString " \
  28.   #( #[ 16r10 16rA9 16r30 16r0B 16r12 16r11 16rA9 16r0B 16r12 16rF3 16rF5 \
  29.        ] \
  30.     #( ' @ '  )) >
  31.  
  32. <primitive 112 pTempVar 8  " min: " \
  33.   #( #[ 16r05 16r35 16rA0 16r10 16r21 16r0A 16r31 16rCF 16r0B 16r33 16r11 \
  34.         16r21 16r0A 16r32 16rCF 16r0B 16r34 16rF3 16rF5] \
  35.     #(  )) >
  36.  
  37. <primitive 112 pTempVar 9  " max: " \
  38.   #( #[ 16r05 16r35 16rA0 16r10 16r21 16r0A 16r31 16r0C 16r10 16r0B 16r33 \
  39.         16r11 16r21 16r0A 16r32 16r0C 16r10 16r0B 16r34 16rF3 16rF5 \
  40.        ] \
  41.     #(  )) >
  42.  
  43. <primitive 112 pTempVar 10  " dist: " \
  44.   #( #[ 16r10 16r21 16r0A 16r31 16rC1 16r0A 16r2C 16r11 16r21 16r0A 16r32 \
  45.         16rC1 16r0A 16r2C 16rC0 16r0A 16r2B 16rF3 16rF5] \
  46.     #(  )) >
  47.  
  48. <primitive 112 pTempVar 11  " asString " \
  49.   #( #[ 16r10 16r0A 16r11 16r30 16r0B 16r12 16r11 16r0A 16r11 16r0B 16r12 \
  50.         16rF3 16rF5] \
  51.     #( ' @ '  )) >
  52.  
  53. <primitive 112 pTempVar 12  " abs " \
  54.   #( #[ 16r05 16r35 16rA0 16r10 16rAE 16r0B 16r33 16r11 16rAE 16r0B 16r34 \
  55.         16rF3 16rF5] \
  56.     #(  )) >
  57.  
  58. <primitive 112 pTempVar 13  " // " \
  59.   #( #[ 16r05 16r35 16rA0 16r10 16r21 16r0B 16r13 16r0B 16r33 16r11 16r21 \
  60.         16r0B 16r13 16r0B 16r34 16rF3 16rF5] \
  61.     #(  )) >
  62.  
  63. <primitive 112 pTempVar 14  " / " \
  64.   #( #[ 16r05 16r35 16rA0 16r10 16r21 16rBF 16r0B 16r33 16r11 16r21 16rBF \
  65.         16r0B 16r34 16rF3 16rF5] \
  66.     #(  )) >
  67.  
  68. <primitive 112 pTempVar 15  " - " \
  69.   #( #[ 16r05 16r35 16rA0 16r10 16r21 16r0A 16r31 16rC1 16r0B 16r33 16r11 \
  70.         16r21 16r0A 16r32 16rC1 16r0B 16r34 16rF3 16rF5] \
  71.     #(  )) >
  72.  
  73. <primitive 112 pTempVar 16  " + " \
  74.   #( #[ 16r05 16r35 16rA0 16r10 16r21 16r0A 16r31 16rC0 16r0B 16r33 16r11 \
  75.         16r21 16r0A 16r32 16rC0 16r0B 16r34 16rF3 16rF5] \
  76.     #(  )) >
  77.  
  78. <primitive 112 pTempVar 17  " * " \
  79.   #( #[ 16r05 16r35 16rA0 16r10 16r21 16rC2 16r0B 16r33 16r11 16r21 16rC2 \
  80.         16r0B 16r34 16rF3 16rF5] \
  81.     #(  )) >
  82.  
  83. <primitive 112 pTempVar 18  " = " \
  84.   #( #[ 16r10 16r21 16r0A 16r31 16rC9 16rFC 16r05 16r11 16r21 16r0A 16r32 \
  85.         16rC9 16rF3 16rF5] \
  86.     #(  )) >
  87.  
  88. <primitive 112 pTempVar 19  " >= " \
  89.   #( #[ 16r10 16r21 16r0A 16r31 16rCB 16rFC 16r05 16r11 16r21 16r0A 16r32 \
  90.         16rCB 16rF3 16rF5] \
  91.     #(  )) >
  92.  
  93. <primitive 112 pTempVar 20  " <= " \
  94.   #( #[ 16r10 16r21 16r0A 16r31 16rC8 16rFC 16r05 16r11 16r21 16r0A 16r32 \
  95.         16rC7 16rF3 16rF5] \
  96.     #(  )) >
  97.  
  98. <primitive 112 pTempVar 21  " < " \
  99.   #( #[ 16r10 16r21 16r0A 16r31 16rC7 16rFC 16r05 16r11 16r21 16r0A 16r32 \
  100.         16rC7 16rF3 16rF5] \
  101.     #(  )) >
  102.  
  103. <primitive 98 #Point \
  104.   <primitive 97 #Point #Magnitude #AmigaTalk:General/Point.st \
  105.    #(  #xvalue #yvalue ) \
  106.    #( #y: #y #x:y: #x: #x #transpose #printString #min: #max: #dist:  \
  107.        #asString #abs #// #/ #- #+ #* #= #>= #<= #<  ) \
  108.   pTempVar 3 4 > #ordinary >
  109.  
  110.